#####################################################################
#	$Id: ViewPort.pm,v 1.1.1.1 2006/03/20 04:08:45 jfb Exp $
#
# ViewPort.pm - a widget used for widget placement in a 2-dimension grid
#
#####################################################################

package Epiphyte::ViewPort;

use strict;
use vars qw(@ISA);

@ISA = qw(Exporter Epiphyte::Widget);


#####################################################################   
# new - class method
#
# Create a new Epiphyte widget object.
#####################################################################

sub new
{
	my ($class, $args) = @_;

	my $self = {
		_items => [],
	};

	bless($self, $class);

	return ($self);
}

#####################################################################   
# add - object method
#
# Add an entry in the grid at positions X and Y
#####################################################################   

sub add
{
	my ($self, $widget, $x, $y, ) = @_;

	$self->{_items}->[$y][$x] = 

	return ($self->{_bgcolor});
}

#####################################################################   
# render - object method
#
#####################################################################

sub render
{
	my ($self) = @_;

	for (my $y = 0; $y < @$self->{_items}; $y++) {
		for (my $x = 0; $x < @$self->{_items}; $x++) {
			
		}
	}

	return 1;
}

1;
